fix_txt <- function(fpath) {
  tbl <- readLines(fpath, warn=FALSE)
  tbl <- tbl[-c(1,2, (length(tbl)-2), length(tbl))]
  cat(tbl, file = fpath)
}
